Private Sub cmdnext_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles cmdnext.Click
    rstProducts.MoveNext()
    If rstProducts.EOF Then
        MsgBox("Last record displayed", vbInformation, Me.Text)
        rstProducts.MoveLast()
    End If
    Call DisplayFields()
End Sub

Private Sub cmdprevious_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles cmdprevious.Click
    rstProducts.MovePrevious()
    If rstProducts.BOF Then
        MsgBox("Last record displayed", vbInformation, Me.Text)
        rstProducts.MoveFirst()
    End If
    Call DisplayFields()
End Sub
